home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Snippets / PNL Libraries / Libraries / SpriteWorld / SpriteWorld files / Interfaces / Scrolling.p < prev    next >
Text File  |  1996-11-02  |  2KB  |  51 lines
  1. unit Scrolling;
  2.  
  3. interface
  4.  
  5.     uses
  6. {$IFC undefined THINK_Pascal}
  7.         Types, 
  8. {$ENDC}
  9.         SWCommonHeaders, Sprite, SpriteFrame, SpriteWorld;
  10.  
  11. {/--------------------------------------------------------------------------------------}
  12. {    Scrolling.h}
  13. {}
  14. {    By: Vern Jensen 8/29/95}
  15. {/--------------------------------------------------------------------------------------}
  16.  
  17. {/--------------------------------------------------------------------------------------}
  18. {    scrolling function prototypes}
  19. {/--------------------------------------------------------------------------------------}
  20.  
  21. {$PUSH}
  22. {$ALIGN MAC68K}
  23.  
  24.  
  25.     procedure SWUpdateScrollingWindow (spriteWorldP: SpriteWorldPtr);
  26.     procedure SWUpdateScrollingSpriteWorld (spriteWorldP: SpriteWorldPtr; updateWindow: Boolean);
  27.     procedure SWProcessScrollingSpriteWorld (spriteWorldP: SpriteWorldPtr);
  28.     procedure SWAnimateScrollingSpriteWorld (spriteWorldP: SpriteWorldPtr);
  29.  
  30.     procedure SWDrawWrappedSprite (srcSpriteP: SpritePtr; dstFrameP: FramePtr; var srcRect: Rect; var dstRect: Rect);
  31.     procedure SWEraseWrappedSprite (spriteWorldP: SpriteWorldPtr; var dstRect: Rect);
  32.     procedure SWWrapWorldToScreen (spriteWorldP: SpriteWorldPtr);
  33.     procedure SWCheckWrappedIdleSpriteOverlap (spriteWorldP: SpriteWorldPtr; idleSpriteP: SpritePtr; headActiveSpriteP: SpritePtr);
  34.     procedure SWRedrawErasedIdleSprites (spriteWorldP: SpriteWorldPtr; headActiveSpriteP: SpritePtr; headIdleSpriteP: SpritePtr);
  35.     procedure SWRedrawIdleSpritesInRect (spriteWorldP: SpriteWorldPtr; headIdleSpriteP: SpritePtr; var updateRect: Rect);
  36.  
  37.     procedure SWSetScrollingWorldMoveBounds (spriteWorldP: SpriteWorldPtr; var scrollRectMoveBounds: Rect);
  38.     procedure SWSetScrollingWorldMoveProc (spriteWorldP: SpriteWorldPtr; worldMoveProcP: WorldMoveProcPtr; followSpriteP: SpritePtr);
  39.     procedure SWSetSpriteWorldScrollDelta (spriteWorldP: SpriteWorldPtr; horizDelta: Integer; vertDelta: Integer);
  40.     procedure SWMoveVisScrollRect (spriteWorldP: SpriteWorldPtr; horizPos: Integer; vertPos: Integer);
  41.     procedure SWOffsetVisScrollRect (spriteWorldP: SpriteWorldPtr; horizOffset: Integer; vertOffset: Integer);
  42.     procedure SWCalculateOffscreenScrollRect (spriteWorldP: SpriteWorldPtr);
  43.  
  44. {$ALIGN RESET}
  45. {$POP}
  46.  
  47. {$IFC not undefined THINK_Pascal}
  48. implementation
  49. {$ENDC}
  50. end.
  51.